Compendium Deluxe 2/LSD and 17bit Compendium Deluxe - Volume II.iso/a/prog/misc/skoed1.14.lha/SkoEd/M2_Macros/skoed.macro

Text File | 1994-04-11 | 335b | 33 lines

PROC If;
  "IF   THEN";
  Return;
  "ELSE";
  Return;
  "END;";
  Up;
  Up;
  Left;
CORP;
!LI = If;
PROC While;
  "WHILE () DO";
  Return;
  "END;";
  Up;
  Right;
  Right;
  Right;
CORP;
!LW = While;
!LP = "PROCEDURE";
!LB = "BEGIN";
!LE = "END;";
PROC Repeat;
  "REPEAT";
  Return;
  "UNTIL ();";
  Left;
  Left;
CORP;
!LR = Repeat;